inherited frmCloseOff: TfrmCloseOff
  Left = 480
  Top = 256
  Caption = #26399#26411#32467#24080
  ClientHeight = 366
  ClientWidth = 614
  ExplicitWidth = 620
  ExplicitHeight = 400
  PixelsPerInch = 119
  TextHeight = 12
  inherited pnlBottom: TPanel
    Top = 311
    Width = 614
    ExplicitTop = 311
    ExplicitWidth = 554
    inherited btnOK: TcxButton
      Left = 419
      Top = 11
      Width = 90
      Caption = #32467#24080
      Enabled = False
      ModalResult = 0
      OnClick = btnOKClick
      ExplicitLeft = 359
      ExplicitTop = 11
      ExplicitWidth = 90
    end
    inherited btnCancel: TcxButton
      Left = 517
      Top = 11
      Width = 90
      OnClick = btnCancelClick
      ExplicitLeft = 457
      ExplicitTop = 11
      ExplicitWidth = 90
    end
    object btnPrior: TcxButton
      Left = 7
      Top = 11
      Width = 90
      Height = 28
      Anchors = [akLeft, akBottom]
      Caption = #19978#19968#27493
      Enabled = False
      LookAndFeel.Kind = lfUltraFlat
      TabOrder = 2
      OnClick = btnPriorClick
    end
    object btnNext: TcxButton
      Left = 101
      Top = 11
      Width = 90
      Height = 28
      Anchors = [akLeft, akBottom]
      Caption = #19979#19968#27493
      LookAndFeel.Kind = lfUltraFlat
      TabOrder = 3
      OnClick = btnNextClick
    end
    object btnCalendar: TcxButton
      Left = 203
      Top = 11
      Width = 90
      Height = 28
      Caption = #37325#26500#20250#35745#26376#21382
      TabOrder = 4
      OnClick = btnCalendarClick
    end
    object btnViewLog: TcxButton
      Left = 307
      Top = 11
      Width = 90
      Height = 28
      Caption = #26597#30475#26085#24535
      TabOrder = 5
      OnClick = btnViewLogClick
    end
  end
  object pcCloseOff: TcxPageControl
    Left = 0
    Top = 0
    Width = 614
    Height = 311
    Align = alClient
    Focusable = False
    TabOrder = 1
    Properties.ActivePage = tsForeword
    Properties.CustomButtons.Buttons = <>
    Properties.Options = [pcoAlwaysShowGoDialogButton, pcoGradient, pcoGradientClientArea, pcoNoArrows, pcoRedrawOnResize]
    OnChange = pcCloseOffChange
    OnPageChanging = pcCloseOffPageChanging
    ExplicitWidth = 554
    ClientRectBottom = 307
    ClientRectLeft = 4
    ClientRectRight = 610
    ClientRectTop = 24
    object tsForeword: TcxTabSheet
      Caption = #21069#35328
      ImageIndex = 0
      ExplicitWidth = 546
      DesignSize = (
        606
        283)
      object Label11: TLabel
        Left = 10
        Top = 12
        Width = 78
        Height = 12
        Caption = #20851#20110#26399#26411#32467#36134':'
        Transparent = True
      end
      object Label1: TLabel
        Tag = 1
        Left = 390
        Top = 12
        Width = 114
        Height = 12
        Caption = #32467#21512#36827#38144#23384#32467#36134#39034#24207':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object chkUnCloseOff: TcxCheckBox
        Left = 8
        Top = 257
        Anchors = [akLeft, akBottom]
        Caption = #21462#28040#19978#26399#32467#36134
        TabOrder = 0
        Transparent = True
        OnClick = chkUnCloseOffClick
      end
      object moExplan: TcxMemo
        Left = 3
        Top = 30
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          #26399#26411#32467#36134#65306
          '    '#24635#32467#26576#19968#20250#35745#26399#38388#30340#32463#33829#24773#20917#65292#39035#23450#26399#36827#34892#32467#36134#12290#32467#36134#23601
          #26159#23450#26399#35745#31639#20986#36134#25143#26412#26399#21457#29983#39069#21644#20313#39069#65292#32467#26463#26412#26399#36134#31807#30340#35760#24405#12290
          #22312#36827#34892#32467#36134#21069#65292#31995#32479#23558#26816#27979#26412#26399#21457#29983#30340#21508#39033#32463#27982#19994#21153#26159#21542#37117#24049
          #32463#22788#29702#23436#27605#12290#21508#39033#19994#21153#22788#29702#23436#27605#21518#65292#25165#33021#36827#34892#32467#36134#12290
          ''
          #21453#32467#36134#65306
          '    '#21482#33021#38024#23545#26368#36817#19968#20010#24049#32467#36134#26399#38388#36827#34892#21453#32467#36134#25805#20316#65292#36827#34892#21453#32467
          #36134#25805#20316#21518#23558#20351#24403#21069#20250#35745#26399#38388#36820#22238#21040#19978#19968#26399#38388#12290#24910#37325#20351#29992#27492#21151#33021
          #65292#20197#20445#35777#25968#25454#30340#23433#20840#24615#65292#24314#35758#27492#21151#33021#38480#21046#20026#31649#29702#21592#20351#29992#12290)
        Properties.ReadOnly = True
        TabOrder = 1
        Height = 219
        Width = 380
      end
      object cxMemo1: TcxMemo
        Tag = 1
        Left = 390
        Top = 30
        Anchors = [akLeft, akTop, akRight, akBottom]
        Lines.Strings = (
          '1. '#37325#31639#26412#26399#25104#26412
          '        '#8595
          '2. '#26399#26411#25104#26412#32467#36716
          '        '#8595
          '3.  '#36827#38144#23384#32467#36134
          '        '#8595
          '4. '#19994#21153#29983#25104#20973#35777
          '        '#8595
          '5.   '#20973#35777#30331#24080
          '        '#8595
          '6.   '#32467#36716#25439#30410
          '        '#8595
          '7.   '#36130#21153#32467#36134)
        ParentFont = False
        Properties.ReadOnly = True
        Style.Font.Charset = GB2312_CHARSET
        Style.Font.Color = clBlue
        Style.Font.Height = -12
        Style.Font.Name = #23435#20307
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 2
        Height = 219
        Width = 200
      end
      object btnReCalcCost: TcxButton
        Tag = 1
        Left = 398
        Top = 30
        Width = 100
        Height = 20
        Cursor = crHandPoint
        Caption = #37325#31639#26412#26399#25104#26412
        Colors.Hot = clGradientActiveCaption
        LookAndFeel.Kind = lfFlat
        SpeedButtonOptions.CanBeFocused = False
        SpeedButtonOptions.Transparent = True
        TabOrder = 3
        OnMouseEnter = btnReCalcCostMouseEnter
        OnMouseLeave = btnReCalcCostMouseLeave
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = btnReCalcCostClick
      end
      object btnPeriodEndCost: TcxButton
        Tag = 1
        Left = 398
        Top = 54
        Width = 100
        Height = 20
        Cursor = crHandPoint
        Caption = #26399#26411#25104#26412#32467#36716
        Colors.Hot = clGradientActiveCaption
        LookAndFeel.Kind = lfStandard
        SpeedButtonOptions.CanBeFocused = False
        SpeedButtonOptions.Transparent = True
        TabOrder = 4
        OnMouseEnter = btnReCalcCostMouseEnter
        OnMouseLeave = btnReCalcCostMouseLeave
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = btnPeriodEndCostClick
      end
      object btnSettleAccount: TcxButton
        Tag = 1
        Left = 398
        Top = 78
        Width = 100
        Height = 20
        Cursor = crHandPoint
        Caption = #36827#38144#23384#32467#36134
        Colors.Hot = clGradientActiveCaption
        LookAndFeel.Kind = lfStandard
        SpeedButtonOptions.CanBeFocused = False
        SpeedButtonOptions.Transparent = True
        TabOrder = 5
        OnMouseEnter = btnReCalcCostMouseEnter
        OnMouseLeave = btnReCalcCostMouseLeave
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = btnSettleAccountClick
      end
      object btnMakeVoucher: TcxButton
        Tag = 1
        Left = 398
        Top = 102
        Width = 100
        Height = 20
        Cursor = crHandPoint
        Caption = #19994#21153#29983#25104#20973#35777
        Colors.Hot = clGradientActiveCaption
        LookAndFeel.Kind = lfStandard
        SpeedButtonOptions.CanBeFocused = False
        SpeedButtonOptions.Transparent = True
        TabOrder = 6
        OnMouseEnter = btnReCalcCostMouseEnter
        OnMouseLeave = btnReCalcCostMouseLeave
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = btnMakeVoucherClick
      end
      object btnBinder: TcxButton
        Tag = 1
        Left = 398
        Top = 126
        Width = 100
        Height = 20
        Cursor = crHandPoint
        Caption = #20973#35777#30331#36134
        Colors.Hot = clGradientActiveCaption
        LookAndFeel.Kind = lfStandard
        SpeedButtonOptions.CanBeFocused = False
        SpeedButtonOptions.Transparent = True
        TabOrder = 7
        OnMouseEnter = btnReCalcCostMouseEnter
        OnMouseLeave = btnReCalcCostMouseLeave
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = btnBinderClick
      end
      object btnCarryPL: TcxButton
        Tag = 1
        Left = 398
        Top = 150
        Width = 100
        Height = 20
        Cursor = crHandPoint
        Caption = #32467#36716#25439#30410
        Colors.Hot = clGradientActiveCaption
        LookAndFeel.Kind = lfStandard
        SpeedButtonOptions.CanBeFocused = False
        SpeedButtonOptions.Transparent = True
        TabOrder = 8
        OnMouseEnter = btnReCalcCostMouseEnter
        OnMouseLeave = btnReCalcCostMouseLeave
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = btnCarryPLClick
      end
    end
    object tsJxc: TcxTabSheet
      Caption = #36827#38144#23384
      ImageIndex = 1
      ExplicitWidth = 546
      DesignSize = (
        606
        283)
      object lbJxc: TcxCheckListBox
        Left = 11
        Top = 13
        Width = 585
        Height = 264
        Anchors = [akLeft, akTop, akRight, akBottom]
        Items = <>
        ReadOnly = True
        TabOrder = 0
        ExplicitWidth = 525
      end
    end
    object tsAssets: TcxTabSheet
      Caption = #22266#23450#36164#20135
      ImageIndex = 2
      ExplicitWidth = 546
      DesignSize = (
        606
        283)
      object lbAssets: TcxCheckListBox
        Left = 11
        Top = 13
        Width = 585
        Height = 264
        Anchors = [akLeft, akTop, akRight, akBottom]
        Items = <>
        ReadOnly = True
        TabOrder = 0
        ExplicitWidth = 525
      end
    end
    object tsWage: TcxTabSheet
      Caption = #24037#36164
      ImageIndex = 3
      ExplicitWidth = 546
      DesignSize = (
        606
        283)
      object lbWage: TcxCheckListBox
        Left = 11
        Top = 13
        Width = 585
        Height = 264
        Anchors = [akLeft, akTop, akRight, akBottom]
        Items = <>
        ReadOnly = True
        TabOrder = 0
        ExplicitWidth = 525
      end
    end
    object tsFinance: TcxTabSheet
      Caption = #36130#21153
      ImageIndex = 4
      ExplicitWidth = 546
      DesignSize = (
        606
        283)
      object lbFinance: TcxCheckListBox
        Left = 11
        Top = 13
        Width = 585
        Height = 264
        Anchors = [akLeft, akTop, akRight, akBottom]
        Items = <
          item
            Text = #26412#26399#20973#35777#30331#24080#26816#26597#36890#36807
          end
          item
            Text = #32467#36716#25439#30410#26816#26597#36890#36807
          end
          item
            Text = #26399#26411#35843#27719#26816#26597#36890#36807
          end>
        ReadOnly = True
        TabOrder = 0
        ExplicitWidth = 525
      end
    end
    object tsCloseOff: TcxTabSheet
      Caption = #32467#24080
      ImageIndex = 5
      ExplicitWidth = 546
      DesignSize = (
        606
        283)
      object lbCloseOff: TcxCheckListBox
        Left = 11
        Top = 13
        Width = 585
        Height = 167
        Anchors = [akLeft, akTop, akRight, akBottom]
        Items = <
          item
            Text = #26412#26399#36827#38144#23384#21333#25454#30340#20973#35777#21046#20316#23436#22791
          end
          item
            Text = #26412#26399#22266#23450#36164#20135#19994#21153#22788#29702#23436#22791
          end
          item
            Text = #26412#26399#24037#36164#19994#21153#22788#29702#23436#22791
          end
          item
            Text = #26412#26399#24080#21153#19994#21153#22788#29702#23436#22791
          end>
        ReadOnly = True
        TabOrder = 0
        ExplicitWidth = 525
      end
      object mmoCloseOff: TcxMemo
        Left = 11
        Top = 192
        Anchors = [akLeft, akRight]
        Lines.Strings = (
          '1.'#29983#25104#26376#32467#34920#25968#25454
          '2.'#36827#20837#19979#19968#20250#35745#26399#38388
          '3.'#20986#32435#32467#24080)
        TabOrder = 1
        ExplicitWidth = 471
        Height = 83
        Width = 531
      end
    end
    object tsUnCloseOff: TcxTabSheet
      Caption = #21453#32467#24080
      ImageIndex = 6
      ExplicitWidth = 546
      object chkDelAdjRate: TcxCheckBox
        Left = 24
        Top = 24
        Caption = #28165#38500#26399#26411#35843#27719#26426#21046#20973#35777
        TabOrder = 0
        Transparent = True
      end
      object chkDelCarryPL: TcxCheckBox
        Left = 24
        Top = 60
        Caption = #28165#38500#32467#36716#25439#30410#26426#21046#20973#35777
        TabOrder = 1
        Transparent = True
      end
      object chkUnBindVou: TcxCheckBox
        Left = 24
        Top = 96
        Caption = #19978#26399#25152#26377#20973#35777#21453#30331#24080
        TabOrder = 2
        Transparent = True
      end
      object chkCancelAssetsToOld: TcxCheckBox
        Left = 264
        Top = 24
        Caption = #21462#28040#22266#23450#36164#20135#35745#25552#25240#26087
        TabOrder = 3
        Transparent = True
        Visible = False
      end
      object chkWageExpense: TcxCheckBox
        Left = 264
        Top = 60
        Caption = #21462#28040#24037#36164#36153#29992#20998#37197#19982#35745#25552#19977#36153
        TabOrder = 4
        Transparent = True
        Visible = False
      end
    end
  end
  object qryFiliale: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_filiale')
    Left = 76
    Top = 215
  end
  object spp_closeoffcarrypl: TUniStoredProc
    StoredProcName = 'p_closeoffcarrypl'
    Connection = MainDM.UniConn
    Left = 212
    Top = 195
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftInteger
        Name = 'curryear'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'currmonth'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'filid'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'succeeded'
        ParamType = ptInputOutput
        Value = 1
      end>
    CommandStoredProcName = 'p_closeoffcarrypl'
  end
  object spp_closeoffadjrate: TUniStoredProc
    StoredProcName = 'p_closeoffadjrate'
    Connection = MainDM.UniConn
    Left = 280
    Top = 215
    ParamData = <
      item
        DataType = ftInteger
        Name = 'curryear'
        ParamType = ptInput
        Value = 0
      end
      item
        DataType = ftInteger
        Name = 'currmonth'
        ParamType = ptInput
        Value = 0
      end
      item
        DataType = ftInteger
        Name = 'cokEndAdjRate'
        ParamType = ptInput
        Value = 0
      end
      item
        DataType = ftInteger
        Name = 'Succeeded'
        ParamType = ptInputOutput
        Value = 1
      end>
    CommandStoredProcName = 'p_closeoffadjrate'
  end
  object qryFirstDay: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      
        'select bdate from tfd_monthlycalendar where yearid = :FYear and ' +
        'monthid = :FMonth')
    CachedUpdates = True
    Left = 132
    Top = 207
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FYear'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'FMonth'
        Value = nil
      end>
  end
  object spp_voucherunbind: TUniStoredProc
    StoredProcName = 'p_voucherunbind'
    Connection = MainDM.UniConn
    Left = 428
    Top = 211
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'fyear'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'fmonth'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftDateTime
        Name = 'firstdate'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'vouwordid'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'filid'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftString
        Name = 'msg'
        ParamType = ptInputOutput
        Size = 50
        Value = nil
      end>
    CommandStoredProcName = 'p_voucherunbind'
  end
end
